350 LINE -(XX+Z*COS(RD)*RE/J,YY-Z*SIN(RD)*RE),PSET,C
360 IF G=0 THEN 370 ELSE IF G=1 THEN 400
370 LOCATE 0,1:PRINT USING"r:###.##";V*RE
380 LOCATE 0,2:PRINT USING"deg:####.##";A
390 LOCATE 0,3:PRINT USING"rad(PI):##.##";A/180
400 IF INKEY$=" " THEN LINE(XX,YY)-(XX+Z*COS(RD)*RE/J,YY-Z*SIN(RD)*RE),XOR,2:FOR B=0 TO 1:IF INKEY$=" " THEN B=1:LINE(XX,YY)-(XX+Z*COS(RD)*RE/J,YY-Z*SIN(RD)*RE),XOR,2:NEXT ELSE B=0:NEXT